home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / amscd.sty (.txt) < prev    next >
LaTeX Document  |  1995-11-25  |  7KB  |  176 lines
  1. %% This is file `amscd.sty' generated from `amscd.doc'
  2. %% on 21-JUN-1991 by the docstrip.ams utility (1.0). 
  3. %%@texfile{
  4. %% filename="amscd.sty",
  5. %% version="1.1",
  6. %% date="21-JUN-1991",
  7. %% filetype="AMS-LaTeX: option",
  8. %% copyright="Copyright (C) American Mathematical Society, all rights
  9. %%   reserved.  Copying of this file is authorized only if either:
  10. %%   (1) you make absolutely no changes to your copy, including name;
  11. %%   OR (2) if you do make changes, you first rename it to some other
  12. %%   name.",
  13. %% author="American Mathematical Society",
  14. %% address="American Mathematical Society,
  15. %%   Technical Support Group,
  16. %%   P. O. Box 6248,
  17. %%   Providence, RI 02940,
  18. %%   USA",
  19. %% telephone="401-455-4080 or (in the USA) 800-321-4AMS",
  20. %% email="Internet: Tech-Support@Math.AMS.com",
  21. %% checksumtype="line count",
  22. %% checksum="180",
  23. %% codetable="ISO/ASCII",
  24. %% keywords="latex, amslatex, ams-latex, commutative diagram",
  25. %% abstract="This file is part of the AMS-\LaTeX{} package, ver. 1.1.
  26. %%   It is a \LaTeX{} option that adapts the commutative diagram macros
  27. %%   of AMS-\TeX{} for use in \LaTeX{}."
  28. \expandafter\ifx\csname amscd.sty\endcsname\relax
  29. \expandafter\def\csname amscd.sty\endcsname{}
  30. \else\message{---already loaded}\endinput\fi
  31. \def\filename{amscd.sty}
  32. \def\fileversion{1.1} \def\filedate{21-JUN-1991}
  33. \immediate\write16{%
  34. AMS-Latex option `\filename' (\fileversion, \filedate)}
  35. %%% end of file header
  36. \def\Invalid@@{Invalid use of \string}
  37. \def\Let@{\let\\\math@cr}
  38. \def\RIfM@{\relax\protect\ifmmode}
  39. \@ifundefined{math@cr}
  40.   {\def\math@cr{{\ifnum0=`}\fi
  41.    \new@ifstar{\global\@eqpen\@M\math@cr@}%
  42.           {\global\@eqpen\interdisplaylinepenalty \math@cr@}}}
  43. \def\math@cr@{\new@ifnextchar[\math@cr@@{\math@cr@@[\z@]}}
  44. \def\math@cr@@[#1]{\ifnum0=`{\fi}\math@cr@@@
  45.   \noalign{\vskip#1\relax}}
  46. \def\restore@math@cr{\def\math@cr@@@{\cr}}
  47. \restore@math@cr
  48. \def\new@ifnextchar#1#2#3{%
  49.   \let\@tempe #1\def\@tempa{#2}\def\@tempb{#3}\futurelet
  50.     \@tempc\new@ifnch}
  51. \def\new@ifnch{\ifx\@tempc \@tempe \let\@tempd\@tempa
  52.              \else\let\@tempd\@tempb\fi\@tempd}
  53. \def\new@ifstar#1#2{\new@ifnextchar *{\def\@tempa*{#1}\@tempa}{#2}}
  54. \def\DN@{\def\next@}
  55. \def\FN@{\futurelet\next}
  56. \def\setboxz@h{\setbox\z@\hbox}
  57. \def\wdz@{\wd\z@}
  58. \def\setbox@ne{\setbox\@ne}
  59. \def\wd@ne{\wd\@ne}
  60. \def\rightarrowfill@#1{\m@th\setboxz@h{$#1-$}\ht\z@\z@
  61.   $#1\copy\z@\mkern-6mu\cleaders
  62.   \hbox{$#1\mkern-2mu\box\z@\mkern-2mu$}\hfill
  63.   \mkern-6mu\mathord\rightarrow$}
  64. \def\leftarrowfill@#1{\m@th\setboxz@h{$#1-$}\ht\z@\z@
  65.   $#1\mathord\leftarrow\mkern-6mu\cleaders
  66.   \hbox{$#1\mkern-2mu\copy\z@\mkern-2mu$}\hfill
  67.   \mkern-6mu\box\z@$}
  68. \def\leftrightarrowfill@#1{\m@th\setboxz@h{$#1-$}\ht\z@\z@
  69.   $#1\mathord\leftarrow\mkern-6mu\cleaders
  70.   \hbox{$#1\mkern-2mu\box\z@\mkern-2mu$}\hfill
  71.   \mkern-6mu\mathord\rightarrow$}
  72. \long\def\@leftmark#1#2{#1}
  73. \long\def\@rightmark#1#2{#2}
  74. \long\def\@ifempty#1{%
  75.  \expandafter\ifx\@car#1@\@nil @\@empty
  76.   \expandafter\@leftmark\else\expandafter\@rightmark\fi}
  77. \long\def\@ifnotempty#1{\@ifempty{#1}{}}
  78. \def\atdef@#1{\expandafter\def\csname\space @\string#1\endcsname}
  79. \begingroup \catcode`\@=\active
  80. \xdef @{\expandafter\noexpand\csname FN\string @\endcsname
  81.   \expandafter\noexpand\csname at\string @\endcsname}
  82. \endgroup
  83. \def\at@{\let\next@\at@@
  84.  \ifcat\noexpand\next a\else
  85.  \ifcat\noexpand\next0\else
  86.  \ifcat\noexpand\next\relax\else
  87.  \let\next@\at@@@\fi\fi\fi\next@}
  88. \def\at@@#1{\expandafter
  89.   \ifx\csname\space @\string#1\endcsname\relax
  90.     \DN@{\at@@@#1}%
  91.   \else
  92.     \DN@{\csname\space @\string#1\endcsname}%
  93.   \fi\next@}%
  94. \def\at@@@{\err@{\Invalid@@ @}{\the\athelp@}\char64\relax}
  95. \@ifundefined{athelp@}{\csname newhelp\endcsname\athelp@
  96. {Only certain combinations beginning with @ make sense to me.^^J%
  97. I'll assume you wanted @@ for a printed @.}}{}
  98. \@ifundefined{err@}{\def\err@{\@latexerr}}{}
  99. \@ifundefined{default@tag}%
  100.   {\def\default@tag{%
  101.     \def\tag{\err@{\string\tag\space not allowed here}\@eha}}}
  102. \@ifundefined{ex@}{\newdimen\ex@}{}
  103. \@ifundefined{minaw@}{\newdimen\minaw@}{}
  104. \@ifundefined{bigaw@}{\newdimen\bigaw@}{}
  105. \minaw@11.11128\ex@
  106. \newdimen\minCDarrowwidth
  107. \minCDarrowwidth2.5pc
  108. \newif\ifCD@
  109. \let\ampersand@\relax
  110. \def\CD{\catcode`\@\active
  111.  \bgroup\relax\iffalse{\fi\let\ampersand@&\iffalse}\fi
  112.  \CD@true\vcenter\bgroup\Let@\restore@math@cr\default@tag
  113.  \tabskip\z@skip\baselineskip20\ex@
  114.  \lineskip3\ex@\lineskiplimit3\ex@\halign\bgroup
  115.  &\hfill$\m@th##$\hfill\crcr}
  116. \def\endCD{\crcr\egroup\egroup\egroup}
  117. \def\CD@check#1#2{\ifCD@\DN@{#2}\else
  118.   \DN@{\err@{@\string#1 not
  119.     allowed outside of the CD environment}\@eha}%
  120.   \fi\next@}
  121. \atdef@>#1>#2>{\ampersand@
  122.   \ifCD@ \global\bigaw@\minCDarrowwidth \else \global\bigaw@\minaw@ \fi
  123.   \setboxz@h{$\m@th\scriptstyle\;{#1}\;\;$}%
  124.   \ifdim\wdz@>\bigaw@\global\bigaw@\wdz@\fi
  125.   \@ifnotempty{#2}{\setbox@ne\hbox{$\m@th\scriptstyle\;{#2}\;\;$}%
  126.     \ifdim\wd@ne>\bigaw@\global\bigaw@\wd@ne\fi}%
  127.  \ifCD@\enskip\fi
  128.    \mathrel{\mathop{\hbox to\bigaw@{\rightarrowfill@\displaystyle}}%
  129.      \limits^{#1}\@ifnotempty{#2}{_{#2}}}%
  130.  \ifCD@\enskip\fi \ampersand@}
  131. \atdef@<#1<#2<{\ampersand@
  132.   \ifCD@ \global\bigaw@\minCDarrowwidth \else \global\bigaw@\minaw@ \fi
  133.   \setboxz@h{$\m@th\scriptstyle\;\;{#1}\;$}%
  134.   \ifdim\wdz@>\bigaw@ \global\bigaw@\wdz@ \fi
  135.   \@ifnotempty{#2}{\setbox@ne\hbox{$\m@th\scriptstyle\;\;{#2}\;$}%
  136.     \ifdim\wd@ne>\bigaw@ \global\bigaw@\wd@ne \fi}%
  137.   \ifCD@\enskip\fi
  138.     \mathrel{\mathop{\hbox to\bigaw@{\leftarrowfill@\displaystyle}}%
  139.       \limits^{#1}\@ifnotempty{#2}{_{#2}}}%
  140.   \ifCD@\enskip\fi \ampersand@}
  141. \begingroup \catcode`\~=\active \lccode`\~=`\@
  142. \lowercase{%
  143.   \global\atdef@)#1)#2){~>#1>#2>}
  144.   \global\atdef@(#1(#2({~<#1<#2<}
  145. }% end lowercase
  146. \endgroup
  147. \atdef@ A#1A#2A{\CD@check{A..A..A}{\llap{$\m@th\vcenter{\hbox
  148.   {$\scriptstyle#1$}}$}\Big\uparrow
  149.   \rlap{$\m@th\vcenter{\hbox{$\scriptstyle#2$}}$}&&}}
  150. \atdef@ V#1V#2V{\CD@check{V..V..V}{\llap{$\m@th\vcenter{\hbox
  151.   {$\scriptstyle#1$}}$}\Big\downarrow
  152.   \rlap{$\m@th\vcenter{\hbox{$\scriptstyle#2$}}$}&&}}
  153. \atdef@={\CD@check={&\enskip\mathrel
  154.   {\vbox{\hrule\@width\minCDarrowwidth\vskip2\ex@\hrule\@width
  155.   \minCDarrowwidth}}\enskip&}}
  156. \atdef@|{\CD@check|{\Big\Vert&&}}
  157. \atdef@\vert{\CD@check\vert{\Big\Vert&&}}
  158. \atdef@.{\CD@check.{&&}}
  159. %% \CharacterTable
  160. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  161. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  162. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  163. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  164. %%   Dollar        \$     Percent       \%     Ampersand     \&
  165. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  166. %%   Asterisk      \*     Plus          \+     Comma         \,
  167. %%   Minus         \-     Point         \.     Solidus       \/
  168. %%   Colon         \:     Semicolon     \;     Less than     \<
  169. %%   Equals        \=     Greater than  \>     Question mark \?
  170. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  171. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  172. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  173. %%   Right brace   \}     Tilde         \~}
  174. \endinput
  175. %% End of file `amscd.sty'.
  176.